1 SCREEN0,7,1:CLEAR,40793:FORT=40800TO40856:READA$:POKET,VAL("&H"+A$):NEXT:CLS:LOCATE0,0,0:COLOR7,0:PRINT"C'EST FANTASTIQUE DANS UN PROGRAMME     ":CONSOLE1,24:POKE&H2061,&H9F:POKE&H2062,&H60:POKE&H2063,33:FORT=0TO3500:NEXTT:POKE&H2063,0:LOCATE0,0,0
2 PRINT"*AUPRES DE MA BLONDE ,IL FAIT BON.... * ":POKE&H2063,3:COLOR,,1:BEEP:DATA34,3F,B6,9F,5A,81,04,2E,06,7C,9F,5A,35,3F,3B,7F,9F,5A,B6,A7,C0,8A,01,B7,A7,C0,8E,00,00,A6,84,B7,9F,5B,5F,A6,01,A7,80,5C,C1,27,26,F7,B6,9F,5B,A7,80,8C,01,38,25,E7,35,3F,3B
3 REM . CE PROGRAMME PEUT S'EXECUTER EN        "MEME TEMPS" QU'UN PROGRAMME     BASIC   +++++ ==> *MARCHE: POKE&H2063,3                  * ARRET : POKE&H2063,0      IL PEUT ETRE UTILE LORS D'UNE        PAGE DE PRESENTATION